home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 33 / Mac Magazin and MacEasy Magazine CD - Issue 33.iso / Office / Cool Address 1.5ƒ / Cool Address 1.5 / Cool Address 1.5 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1997-05-23  |  19KB  |  43 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.5</name>
  5.     <id>-1</id>
  6.     <cardCount>21</cardCount>
  7.     <cardID>2955</cardID>
  8.     <listID>3594</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>640</width>
  14.         <height>400</height>
  15.     </cardSize>
  16.     <script>on openstackglobal modeaddcolor install,8set cursor to watchput cd field "mode" of card "Please Wait" into modeif the short name of this card = "Please Wait"thenif mode = "AddressBook" then Picture "TitleScreen",resource,Dialog -- only use for address bookend ifelse Picture "CCTitleScreen",resource,Dialog -- only use for CCelsePicture "PleaseWait",resource,Dialogend ifhide message boxif the userlevel < 5 then set userlevel to 5 -- Change to lower laterset textarrows to trueset blindtyping to truesend  createMenus to bg "menu maker"LOCK SCREENshow menubarif mode = "AddressBook" then go bg "Records" -- NOT "Address Title Screen"elseif the short name of this card = "Please Wait" thengo card "Contribution Title Screen"send doNavigation to this bgend ifend ifstart using this stackif there is a window "TitleScreen" then close window "TitleScreen" -- only use for address bookif there is a window "CCTitleScreen" then close window "CCTitleScreen" -- only use for CCif there is a window "PleaseWait" then close window "PleaseWait"SEND openBackground TO THIS BGsend "opencard" to this cardplay "Crystal2"flashif short name of this card = "Contribution Title Screen" then protectionend openstackon doNavigationput 0 into TheLeftput the height of the card window into TheBottompalette "navigation","TheLeft,TheBottom"end doNavigationon GoMainplay "click"lock screengo card "contribution title screen"end GoMainon goaddingplay "click"lock screengo last card of bg "adding machine"end goaddingon GoAddressplay "click"lock screenpush this cardgo card 1 of bg "records"end GoAddresson GoDepositplay "click"lock screengo last card of bg "reports"end GoDepositon GoStateMentplay "click"lock screenset cursor to watchPut "Please wait...Loading Statements"go to bg "Contribution Statements"put emptyhide messageend GoStateMenton protectionput 0 into xrepeatput cd field "password" of card "Contribution Title Screen" into ThePassInfoask password "Enter Password:"put it into PassEntryif PassEntry = ThePassInfo then exit repeatelseplay "red alert"add 1 to xif x > 3  thendomenu "quit"exit repeatend if-- else put PassEntry into cd field "password" of card "Contribution Title Screen"end ifend repeatend protectionon suspendstackGlobal modeput mode into card field "Mode" of card "Please Wait"-- send enableMenus to this bg-- if the OPTIONKEY is down-- then-- answer "Do you want to reset the menus?" with yes or no-- if it is yes-- then-- set cursor to watch-- reset menubar-- end if-- else-- set cursor to watch-- reset menubar-- end ifend suspendstackon enableMenusbeepend enableMenuson resumestack-- openstacksend donavigation to this bgend resumestackon closeStackglobal NewRecordif NewRecord = "true" then send UpdateSort to bg "records"--- automatically compacts a fat stack ---stop using this stackget the freeSize of this stackput the value of it into StackFreeSpaceput Round(StackFreeSpace/1000) into StackFreeSpaceif StackFreeSpace > 50thenrepeat with x = the number of windows down to 1close window xend repeatPicture "PleaseWait",resource,DialogdoMenu "Compact Stack"if there is a window "PleaseWait" then close window "PleaseWait"end if------------------------------------------go card 1addcolor removeexit to hypercardend CloseStackon buz2IF the userlevel is < 5 then set userlevel to 5set cantpeek of this stack to falseshow messagebeep 2end buz2on mouseUpInPicture targetclose window targetplay introsongend mouseUpInPicture------ IS THIS NEEDED? -------------------------on DeleteMenu DeleteNameset cursor to watchif there is a menu DeleteName then delete menu DeleteNameend DeleteMenu-- MENU MESSAGE HANDLERS__________________________________________-- APPLE MENU----------on AboutContraAnswer "Contrabtion Calculator ¬© 1994" & return &¬¨"This version not released." & return &¬¨"by Image Works Plus Software." with Help or OKif it is help then helpend AboutContraON ABOUTCOOLglobal modeif mode = "contribution"thenAboutContraexit aboutCoolend ifset cursor to watchget ModalDialog("About")set cursor to watchif it is "Cancel" -- this is the message sent with the register button is pressedthenlock screenpush cardgo card "Address Title Screen"send mouseup to cd button "Register"pop cardexit aboutCoolend ifif there is not a window "About Cool Address Book"thenlock screenpush this cardgo card "Address Title Screen"textoid "About Cool Address Book","cd field about",BigWindoidZoom,blue,rect of cd field about¬¨,true,the textFont of cd field about,the textSize of cd field about,Plainset the textWrap of window "About Cool Address Book" to truepop cardelseshow window "About Cool Address Book"end ifend aboutCool--EDIT MENU ------------On Optionsput bg field "Options" of card 1 of this bg into tempget ModalDialog("Options",Temp)if line 1 of it = "Cancel" then exit Optionsset cursor to watchput it into bg field "Options" of card 1 of this bg-- Put these values into global variables at startup and NOW-- line 5 Bg printing off or on-- line 4 name of bg printer-- line 8 ZipScrip on or off-- line 10 print notes with address-- line 12 time delayend Options--GO MENU ------------on FindItput the selection into SearchString-- -- set lockMessages to true-- set LockRecent to trueif there is a window "notes" then close window "notes"if there is a window "gifts" then close window "gifts"closeCardlock screenset cursor to watchglobal TheFindMessage,FoundCard,strng,FoundList-- this next 2 lines makes sure the bg field is updated from the notes window.if there is a window notesthen set fieldtransfer of window Notes to quote & "bg field" && Notes & quoteput bg field "FindStuff" of card 1 into tempif SearchString is not empty then put SearchString into line 4 of tempget ModalDialog("FindIt",Temp)   -- ,<containerName>,<dialogPositioning>,<noCancel>,<noWordWrap>)if line 1 of it = "Cancel" then exit FindItset cursor to watchput it into bg field "FindStuff" of card 1put line 4 of bg field "FindStuff" of card 1 into Strngselect emptyif line 5 of bg field "FindStuff" of card 1 = "Off"then -- find Chars Strngput "find chars" && Quote & Strng & Quote into TheFindMessageelse -- find whole strngput "find whole"&& Quote & Strng & Quote into TheFindMessageend ifif there is a message windowthenput "findAgain"hide messageend ifdo TheFindMessageput the foundChunk & "," & the short name of this card into FoundListif the foundText = Emptythenplay "knock3"answer "Sorry, no match was found for" && Quote & Strng & Quote & "."exit FindItend ifput the short name of this card into FoundCardSelectFindend FindITon SelectFind-- opencard-- if the short name of the foundfield is in "notes,gifts"-- then-- put the short name of the foundfield into WindName-- -- put the LockText of window Windname into LockStatus-- put word 2 of the foundChunk into TheNumbers-- put word 4 of the foundChunk into item 2 of TheNumbers-- put "set selectedchunk of window" && WindName && "to" && theNumbers ¬¨-- into theCommand -- this silly work around helped textoid work-- do TheCommand-- -- set lockTExt of window Windname to LockStatus-- end ifend SelectFindon FindAgainglobal TheFindMessage,FoundCard,strng,FoundListset cursor to watchlock screenset lockMessages to trueset LockRecent to trueput the short name of this card into StartingNamecloseCard--- if the findAgain command is called from the same card as the last findif the short name of this card = FoundCardthenput empty into FindAgainListrepeatdo TheFindMessageput the foundChunk & "," & the short name of this card into ThisFindif ThisFind is not in FoundListthenput return & ThisFind after FoundListput the short name of this card into FoundCardSelectFindexit repeatend ifif ThisFind is in FindAgainListThenplay "knock3"Answer "No new occurances found for:" && strngput empty into FoundList -- next findagain will start overexit repeatend ifput ThisFind & return after FindAgainListend repeatelse-- clears the FoundList and starts from scratchif there is a message windowthenput "findAgain"hide messageend ifdo TheFindMessageput the foundChunk & "," & the short name of this card into FoundListif the foundText = Emptythenplay "knock3"answer "Sorry, no match was found for" && Quote & Strng & Quote & "."end ifput the short name of this card into FoundCardSelectFindend ifif the short name of this card ‚↠StartingName then opencard-- send opencard to this cardend FindAgain-----------on arrowKey directionif the selectedLoc is not empty then pass arrowkeyelse if direction is "down" then GoCard "last"else if direction is "up" then goCard "First"else if direction is "right" then nextcardelse if direction is "left" then prevcardend arrowkeyon GoCard TheRefset cursor to watchput theRef && "card of this bg" into TEMP-- lock screengo temp-- addcolor colorbackground,stamp,1-- unlock screen with visual wipe down very fastend GoCardon nextcardset cursor to watch-- lock screengo next card of this bg-- addcolor colorbackground,stamp,1-- unlock screen with visual wipe left very fastend nextcardon prevcardset cursor to watch-- lock screengo prev card of this bg-- addcolor colorbackground,stamp,1-- unlock screen with visual wipe right very fastend prevcard-- on domenu x-- if x = "Quit"-- then answer "no way hose"-- else pass domenu-- end domenuon OPNstackanswer file "Select a Hypercard Stack:" of type "STAK"if it is not empty then go to stack it in a new windowif the result is not emptythen answer "Sorry, not enough memory available to open that stack."end OPNstackOn DeletePageif the short name of this bg = "Records"then send mouseup to bg button "delete"elseanswer "Are you sure you want to delete this page?" with yes or cancelif it is cancel then exit DeletePagesuspend messageslock messageslock screenpush next card of this bgput "domenu" && quote & "Delete Card" & quote into theMessagesend theMessage to HyperCardplay "tear"pop cardend ifsend opencard to this cardend DeletePage----- Scripting Helpers -----------------------------------------------------on oopsplay "knock3"answer "This feature has not been added yet."end oopsON MNHSEND SHOWINDEX TO CARD FIELD MENUHELPER OF CARD ID 8465END MNH--------------------------------------------------------------------------------- TEXTOID HANDLERS -------------------------------------------------------on UpdateWindowsFields Whatif there is a window Whatthen set fieldtransfer of window what to quote & "bg field" && what & quoteend UpdateWindowsFieldson UpdateWindows Whatif there is a window Whatthen set text of window What to  quote & "bg field" && what & quoteend UpdateWindowson ScriptNotespush this cardset LockMessages to trueset lockRecent to trueset cursor to watchgo card "scripting Notes"opencard-- if there is not a window "ScriptingNotes"-- then-- lock screen-- push this card-- go card 1-- -- set dontsearch of bg field "scriptingNotes" to false-- textoid "ScriptingNotes","bg field ScriptingNotes of bg 1",BigWindoidZoom,Black,rect of bg field "ScriptingNotes"¬¨-- ,true,the textFont of bg field ScriptingNotes,the textSize of bg field ScriptingNotes,Plain-- set the textWrap of window "ScriptingNotes" to true-- set the locktext of window "ScriptingNotes" to false-- pop card-- unlock screen-- else-- show window "ScriptingNotes"-- end ifend ScriptNoteson closeTextoid Whatplay clickif what = "ScriptingNotes"thenset LockMessages to trueset lockRecent to truelock screenpush this cardgo card 1set fieldtransfer of window what to "bg field ScriptingNotes"pop cardelse if what = "Gifts"thenset dontsearch of bg field what to trueexit CloseTextoidelse if what = "Return_Address"thenif short name of this bg ‚↠"records"thenpush cardlock screenset lockMessages to truego bg "Records"set fieldtransfer of window what to quote & "bg field" && what & quotepop cardset lockmessages to falseelseset fieldtransfer of window what to quote & "bg field" && what & quoteend ifif there is a card "Contribution Title Screen"thenput bg field "Return_Address" of card 1 of bg "Records" into cd field "ChurchInfo" of¬¨card "Contribution Title Screen"put bg field "Return_Address" of card 1 of bg "Records" into bg field "Return Address" of¬¨card 1 of bg "Contribution Statements"end ifelseif there is a bg field what thenset fieldtransfer of window what to quote & "bg field" && what & quoteif what ‚↠"notes" then set dontsearch of bg field what to trueelseset the locktext of bg field "notes" to falsesend closefield to bg field "notes"end ifelseset fieldtransfer of window what to quote & "cd field" && what & quoteend ifend ifend closeTextoid------------------------------------------------------------------------------- Functions --------------------------------------------------------------function ChangeTheCase MeStringput "abcdefghijklmnopqrstuvwxyz" into LowStringput "ABCDEFGHIJKLMNOPQRSTUVWXYZ" into CaptStringrepeat with x = the number of words in MeString down to 1 -- takes care of wordsget offset (char 1 of word x of MeString,LowString)if it ‚↠0 then put char it of CaptString into char 1 of word x of MeStringend repeatrepeat with x = the number of items in MeString down to 1 -- takes care of itemsget offset (char 1 of item x of MeString,LowString)if it ‚↠0 then put char it of CaptString into char 1 of item x of MeStringend repeatreturn mestringend ChangeTheCase-----DEAD SCRIPTS -----------------------------------------------------------on RemoveTabs FieldNo   --- THIS IS NOT NEEDED TAKE IT OUT!!!!!!!!!!!!!!!!!!!!!!!!!!put "this script really is used!"beep 20put the number of characters in bg field FieldNo into TotalCharput bg field FieldNo into OldTextrepeat with CharNo = 1 to TotalCharif char CharNo of OldText = tabthenput " " into char CharNo of OldTextend ifend repeatput oldText into bg field FieldNoend RemoveTabs------------------------------------------------------------------------------- SCRIPTING SCRIPTS ---------------------------------------------------------function FormatePHone TheNumber-- This script is used to change the location of the calcualtor-- it is not needed at all if the calculator is going to stay in the same-- place.put 0 into TheCountrepeat with CharNo = 1 to the number of characters in theNumberif char CharNo of theNumber is a number AND char CharNo of theNumber ‚↠" "then add 1 to TheCountelse exit repeatend repeatif theCount = 7thenPut "-" after char 3 of theNumberelse if theCount = 10thenput "(" before theNumberput ")" after char 4 of theNumberput " " after char 5 of theNumberput "-" after char 9 of theNumberelse if theCount = 11 AND the first Char of TheNumber = 1thenput "(" after char 1 of theNumberput ")" after char 5 of theNumberput " " after char 6 of theNumberput "-" after char 10 of theNumberend ifreturn TheNumberend FormatePHone------------------------------------------------------------------------------ BALOON SCRIPTS ----------------------------------------------------------on MouseWithinFullBalloons "IsOn"if the result is false then exit MouseWithinget word 1 to 2 of the target && number of the targetFullBalloons "IsShowing"if not the Result and it ‚↠the selectedFieldthensend BalloonIt to the Target -- for some reason sending this nonesense-- message to the target causes a mouse enter to be sent if one has-- not already been sent, therefore giving you a clean non - flashy-- balloon operation.end ifend MouseWithinon BalloonIt-- beep -- stops BaloonIt and does nothingend BalloonIt----------------------------------------------------------------------------on  AC_Transitionsend AC_Transitionson  AC_SetTransitionsend AC_SetTransitionson mtsend mytools to bg "menu maker"end mton ptstart using stack "power tools"end pton helpplay "click"if there is a window "help" then show window "Help"else go to stack "help" in a new windowend help</script>
  17.     <background id="5973" file="background_5973.xml" name="Title Screen" />
  18.     <background id="15901" file="background_15901.xml" name="Records" />
  19.     <background id="27406" file="background_27406.xml" name="Menu Maker" />
  20.     <background id="169085" file="background_169085.xml" name="Calendar" />
  21.     <card id="2955" file="card_2955.xml" marked="false" name="Please Wait" owner="5973" />
  22.     <card id="4709" file="card_4709.xml" marked="false" name="Address Title Screen" owner="5973" />
  23.     <card id="8465" file="card_8465.xml" marked="false" name="Scripting Notes" owner="5973" />
  24.     <card id="108604" file="card_108604.xml" marked="false" name="Image Works Plus Shareware" owner="15901" />
  25.     <card id="168823" file="card_168823.xml" marked="false" name="January" owner="169085" />
  26.     <card id="169670" file="card_169670.xml" marked="false" name="February" owner="169085" />
  27.     <card id="169788" file="card_169788.xml" marked="false" name="March" owner="169085" />
  28.     <card id="170121" file="card_170121.xml" marked="false" name="April" owner="169085" />
  29.     <card id="170372" file="card_170372.xml" marked="false" name="May" owner="169085" />
  30.     <card id="170498" file="card_170498.xml" marked="false" name="June" owner="169085" />
  31.     <card id="170945" file="card_170945.xml" marked="false" name="July" owner="169085" />
  32.     <card id="171246" file="card_171246.xml" marked="false" name="August" owner="169085" />
  33.     <card id="171427" file="card_171427.xml" marked="false" name="September" owner="169085" />
  34.     <card id="171536" file="card_171536.xml" marked="false" name="October" owner="169085" />
  35.     <card id="172055" file="card_172055.xml" marked="false" name="November" owner="169085" />
  36.     <card id="172356" file="card_172356.xml" marked="false" name="December" owner="169085" />
  37.     <card id="27187" file="card_27187.xml" marked="false" name="" owner="27406" />
  38.     <card id="94824" file="card_94824.xml" marked="false" name="" owner="27406" />
  39.     <card id="102259" file="card_102259.xml" marked="false" name="" owner="27406" />
  40.     <card id="109571" file="card_109571.xml" marked="false" name="" owner="27406" />
  41.     <card id="111460" file="card_111460.xml" marked="false" name="" owner="27406" />
  42. </stack>
  43.